(describe-coding-system): Describe coding systems of type 5, raw-text.

diff --git a/lisp/international/mule-diag.el b/lisp/international/mule-diag.el
index 298408258f1159cda9cabe321408e4c780ab3e09..32b80a583d00cc1cafc1fe0bd3532a12ba32868b 100644 (file)
--- a/lisp/international/mule-diag.el
+++ b/lisp/international/mule-diag.el
@@ -186,7 +186,9 @@ but contains full information about each character sets."
                 (princ " (Big5)"))
                ((eq type 4)
                 (princ " (do conversion by CCL program)"))
-               (t (princ "invalid coding-system."))))
+               ((eq type 5)
+                (princ " (text with random binary characters)"))
+               (t (princ ": invalid coding-system."))))
        (princ "\nEOL type:\n  ")
        (let ((eol-type (coding-system-eol-type coding-system)))
          (cond ((vectorp eol-type)